;*********************************************************** ; シリアル送信動作チェックプログラム（１） ; 送信状態に入ると、確認のため PORTB の LED が１秒間点灯 ; LED が消灯すると同時に「 A 」という１文字が PIC から送信 ; 非同期式通信モード ; ボーレート 9600bps（高速モード） ; ８ビット・ノンパリティ ; 割り込みは使用しない ;*********************************************************** LIST P=PIC16F877 ; プロセッサの種別指定 INCLUDE "P16F877.INC" ; インクルードファイルの指定 ;*********************************************************** ; 変数定義とレジスタ割付 ;*********************************************************** COUNT EQU 20H ; ループカウンタ COUNT1 EQU 21H ; ループカウンタ1 COUNT2 EQU 22H ; ループカウンタ2 COUNT3 EQU 23H ; ループカウンタ3 COUNT4 EQU 24H ; ループカウンタ4 ORG 0 ; プログラムの開始番地の指定 ;*********************************************************** ; 送受信モードの初期化 ; （注）バンクの位置に注意 ;*********************************************************** BSF STATUS,RP0 ; Bank 1 へ切替 MOVLW B'10111111' ; RC7/RX（入力），RC6/TX（出力） MOVWF TRISC ; PORTC の設定 CLRF TRISB ; PORTB 全ポートを出力に設定 MOVLW B'00100100' ; 8BIT,送信許可,非同期,高速 MOVWF TXSTA ; TXSTA レジスタの設定 MOVLW 81H ; ボーレート 9600bps (20MHz：高速設定時) MOVWF SPBRG ; SPBRG レジスタの設定 BCF STATUS,RP0 ; Bank 0 へ戻す MOVLW B'10010000' ; シリアル,8BIT,継続受信許可 MOVWF RCSTA ; RCSTA レジスタの設定 ;*********************************************************** ; メインプログラム（送信ルーチン） ; ; 送信可能かのチェックは送信レジスタが空であることで確認 ; （つまり、TRMT=1で可能と判定する） ; （注）TXSTAのあるバンクに注意 ;*********************************************************** MOVLW B'11111111' ; 11111111 を Wreg にロードする MOVWF PORTB ; PORTBへWregのデータを出力(LEDの全点灯） CALL TIME1S ; 1秒のウエイトを入れる MOVLW B'00000000' ; 00000000 を Wreg にロードする MOVWF PORTB ; PORTBへWregのデータを出力(LEDの消灯） BSF STATUS,RP0 ; Bank 1 へ切替 LPTX BTFSS TXSTA,TRMT ; 送信可能であるかチェック（1:可能, 0:禁止） GOTO LPTX ; 禁止であれば LPTX のラベル間を繰り返す BCF STATUS,RP0 ; Bank 0 へ戻す MOVLW 'A' ; 送信データ'A' を Wreg にロードする MOVWF TXREG ; TXREGレジスタを通してシリアル出力 END_LP GOTO END_LP ; 送信終了 ;*********************************************************** ;遅延サブルーチン ;*********************************************************** ;１００μｓ遅延サブルーチン（２０ＭＨｚクロック時） TIME100 MOVLW 0A5H ; 1サイクル A5H=165 MOVWF COUNT ; 1サイクル NOP ; 1サイクル 微調整ダミー NOP ; 1サイクル 微調整ダミー LOOP DECFSZ COUNT,F ; 1×(165-1)＋2 = 166サイクル GOTO LOOP ; 2×(165-1) = 328サイクル RETURN ; 2サイクル ;１０ｍｓ遅延サブルーチン（２０ＭＨｚクロック時） TIME10M MOVLW 63H ; 1サイクル 63H=99 MOVWF COUNT1 ; 1サイクル NOP ; 1サイクル 微調整ダミー NOP ; 1サイクル 微調整ダミー LOOP1 CALL TIME100 ; （2＋500）×99＝49698サイクル DECFSZ COUNT1,F ; 1×(99-1)＋2 = 100サイクル GOTO LOOP1 ; 2×(99-1) = 196サイクル RETURN ; 2サイクル ;１ｓ遅延サブルーチン（２０ＭＨｚクロック時） TIME1S MOVLW 63H ; 1サイクル 63H=99 MOVWF COUNT2 ; 1サイクル MOVLW 62H ; 1サイクル 62H=98 MOVWF COUNT3 ; 1サイクル MOVLW 03H ; 1サイクル 03H=3 MOVWF COUNT4 ; 1サイクル NOP ; 1サイクル 微調整ダミー LOOP2 CALL TIME10M ;（2＋50000）×99＝4950198サイクル DECFSZ COUNT2,F ; 1×(99-1)＋2 = 100サイクル GOTO LOOP2 ; 2×(99-1) = 196サイクル LOOP3 CALL TIME100 ;（2＋500)×98＝49196 DECFSZ COUNT3,F ; 1×(98-1)＋2 = 99サイクル GOTO LOOP3 ; 2×(98-1) = 194サイクル LOOP4 DECFSZ COUNT4,F ; 1×(3-1)＋2 = 4サイクル GOTO LOOP4 ; 2×(3-1) = 4サイクル RETURN ; 2サイクル END